home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / cml-098.lha / cml-0.9.8 / examples / ex-get-answer.sml < prev    next >
Encoding:
Text File  |  1991-06-01  |  333 b   |  16 lines
  1. (* ex-get-answer.sml
  2.  *
  3.  * COPYRIGHT (c) 1990 by John H. Reppy.  See COPYRIGHT file for details.
  4.  *)
  5.  
  6. (* BEGIN EXAMPLE *)
  7. fun getAnswer (question, t) = let open CML CIO
  8.       in
  9.     print question; flush_out std_out;
  10.     select [
  11.         wrap (inputLineEvt std_in, SOME),
  12.         wrap (timeout t, fn () => NONE)
  13.       ]
  14.       end
  15. (* END EXAMPLE *)
  16.